home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #1 / Amiga Plus CD - 1997 - No. 01.iso / pd / programmierung / proasm / routines / easylibrary.r < prev    next >
Text File  |  1994-11-15  |  14KB  |  606 lines
  1.  
  2. ;---;  easylibrary.r  ;--------------------------------------------------------
  3. *
  4. *    ****    library open/close handler    ****
  5. *
  6. *    Author        Daniel Weber
  7. *    Version        1.74
  8. *    Last Revision    15.11.93
  9. *    Identifier    ely_defined
  10. *       Prefix        ely_    (easy library)
  11. *                 ¯    ¯     ¯
  12. *    Functions    OpenLibrary, CloseLibrary
  13. *            elh_openlibrary (OpenLibrary),
  14. *            elh_closelibrary (CloseLibrary)
  15. *
  16. *    Note        - base on Rene Eberhard's easylibrary system.
  17. *            - elh_* routines supported for a transparent use of
  18. *              both (old and new) library handlers.
  19. *            - A small dummy routine will be assembled if no
  20. *              libraries are selected (moveq #1,d0/rts).
  21. *            - Library version: 'DOS.LIB SET 36' to open dos.library v36.
  22. *
  23. ;------------------------------------------------------------------------------
  24. *    Flags
  25. *
  26. *    ely_LARGE    if the library bases are not within a 32Kb range
  27. *    ely_NOALERT    if no build in alert system is requested
  28. *
  29. *        AMIGAGUIDE.LIB   -->    AmigaGuideBase
  30. *        ARP.LIB         -->    ArpBase
  31. *        ASL.LIB         -->    AslBase
  32. *        BULLET.LIB     -->    BulletBase
  33. *        CANDO.LIB     -->    CanDoBase
  34. *        CX.LIB         -->    CommoditiesBase (=CxBase)
  35. *        COMMODITIES.LIB     -->    CommoditiesBase    (=CxBase)
  36. *        DATATYPES.LIB     -->    DatatypesBase
  37. *        DECRUNCH.LIB     -->    DecrunchBase
  38. *        DISKFONT.LIB     -->    DiskFontBase
  39. *        DOS.LIB         -->    DosBase
  40. *        DOS36.LIB     -->    DosBase (v36)
  41. *        EXPANSION.LIB     -->    ExpansionBase
  42. *        EXPLODE.LIB     -->    ExplodeBase
  43. *        GADTOOLS.LIB     -->    GadToolsBase
  44. *        GRAPHICS.LIB     -->    GfxBase
  45. *        ICON.LIB     -->    IconBase
  46. *        IEEEDOUBBAS.LIB     -->    IEEEDoubBasBase
  47. *        IEEEDOUBTRANS.LIB-->    IEEEDoubTransBase
  48. *        IEEESINGTRANS.LIB-->    IEEESingTransBase
  49. *        IFF.LIB         -->    IffBase
  50. *        IFFPARSE.LIB     -->    IffParseBase
  51. *        INTUITION.LIB     -->    IntBase
  52. *        KEYMAP.LIB     -->    KeymapBase
  53. *        LAYERS.LIB     -->    LayersBase
  54. *        LOCALE.LIB     -->    LocalBase
  55. *        MATHTRANS.LIB     -->    MathTransBase
  56. *        NIHONGO.LIB     -->    NihongoBase (=ngbase)
  57. *        NOFRAG.LIB     -->    NoFragBase
  58. *        PPACKER.LIB     -->    PPackerBase
  59. *        PROMMU.LIB     -->    ProMMUBase
  60. *        REQ.LIB         -->    ReqBase
  61. *        REXX.LIB     -->    RexxBase
  62. *        TRANSLATOR.LIB     -->    TranslatorBase
  63. *        UTILITY.LIB     -->    UtilBase
  64. *        VERSION.LIB     -->    VersionBase
  65. *        WORKBENCH.LIB     -->    WorkbenchBase
  66. *        XPKMASTER.LIB     -->    XPKMasterBase
  67. *
  68. *        DX.BASE if the bases are extern handled!
  69. *
  70. ;------------------------------------------------------------------------------
  71.  
  72.  
  73. ;------------------
  74.     ifnd    ely_defined
  75. ely_defined    SET    1
  76.  
  77. ;------------------
  78. ely_oldbase    equ __BASE
  79.     base    ely_base
  80. ely_base:
  81.  
  82. ;------------------
  83.     opt    sto,o+,ow-,q+,qw-        ;all optimisations on
  84.  
  85. ;------------------
  86.  
  87. ;------------------------------------------------------------------------------
  88. *
  89. * pre-definitions to keep the compatibility with older easylibrary handler
  90. *
  91. ;------------------------------------------------------------------------------
  92.     IFD    CX.LIB
  93. COMMODITIES.LIB    SET    1
  94.     ENDC
  95.  
  96.     IFD    DOS36.LIB
  97. DOS.LIB    SET    36
  98.     ENDC
  99.  
  100. * check if the library handler is really used
  101.  
  102. ely_used_    MACRO
  103.     IFD    \1
  104. ely_used    SET    1
  105.     ENDC
  106.     ENDM
  107.  
  108.     ely_used_    AMIGAGUIDE.LIB
  109.     ely_used_    ARP.LIB
  110.     ely_used_    ASL.LIB
  111.     ely_used_    BULLET.LIB
  112.     ely_used_    CANDO.LIB
  113.     ely_used_    CX.LIB
  114.     ely_used_    COMMODITIES.LIB
  115.     ely_used_    DATATYPES.LIB
  116.     ely_used_    DECRUNCH.LIB
  117.     ely_used_    DISKFONT.LIB
  118.     ely_used_    DOS.LIB
  119.     ely_used_    DOS36.LIB
  120.     ely_used_    EXPANSION.LIB
  121.     ely_used_    EXPLODE.LIB
  122.     ely_used_    GADTOOLS.LIB
  123.     ely_used_    GRAPHICS.LIB
  124.     ely_used_    ICON.LIB
  125.     ely_used_    IEEEDOUBBAS.LIB
  126.     ely_used_    IEEEDOUBTRANS.LIB
  127.     ely_used_    IEEESINGTRANS.LIB
  128.     ely_used_    IFF.LIB
  129.     ely_used_    IFFPARSE.LIB
  130.     ely_used_    INTUITION.LIB
  131.     ely_used_    KEYMAP.LIB
  132.     ely_used_    LAYERS.LIB
  133.     ely_used_    LOCALE.LIB
  134.     ely_used_    MATHTRANS.LIB
  135.     ely_used_    NIHONGO.LIB
  136.     ely_used_    NOFRAG.LIB
  137.     ely_used_    PPACKER.LIB
  138.     ely_used_    PROMMU.LIB
  139.     ely_used_    REQ.LIB
  140.     ely_used_    REXX.LIB
  141.     ely_used_    TRANSLATOR.LIB
  142.     ely_used_    UTILITY.LIB
  143.     ely_used_    VERSION.LIB
  144.     ely_used_    WORKBENCH.LIB
  145.     ely_used_    XPKMASTER.LIB
  146.  
  147.  
  148. ;------------------------------------------------------------------------------
  149. *
  150. * OpenLibrary
  151. *
  152. * RESULT    D0    NULL if an error occured else <> 0
  153. *        A0    ONLY IF AN ERROR HAS OCCURED, Pointer to LibName
  154. *
  155. *
  156. ;------------------------------------------------------------------------------
  157.     IFD    ely_used
  158. elh_openlibrary:
  159. OpenLibrary:
  160.     movem.l    d1-a6,-(a7)        ;[!]stack gets patched some lines below
  161.     lea    ely_base(pc),a5
  162.     lea    ely_librarylist(pc),a4
  163.     move.l    4.w,a6
  164.  
  165. .loop:    moveq    #1,d0            ;if an error occured (return value = 1)
  166.     move.w    (a4)+,d1
  167.     beq    .out            ;finished
  168.     lea    (a5,d1.w),a1        ;name offset
  169.     move.w    (a4)+,d0        ;version#
  170.     IFND    ely_LARGE
  171.     move.w    (a4)+,d1
  172.     lea    (a5,d1.w),a3        ;base offset
  173.     ELSE
  174.     move.l    (a4)+,a3        ;base address
  175.     ENDC
  176.     move.l    a1,a2            ;save name for display alert
  177.     jsr    -552(a6)        ;_LVOOpenLibrary(a6)
  178.     move.l    d0,(a3)
  179.     bne.s    .loop
  180.  
  181. ;------------------------------------------------
  182. ;Show Alert if a library couldn't be opened (routine taken from Eberhards
  183. ;easylibrary handler)
  184. ;
  185.     IFND    ely_NOALERT
  186.  
  187. INTUITION.LIB    SET    1
  188.  
  189.     lea    ely_intuitionname(pc),a1
  190.     jsr    -408(a6)        ;_LVOOldOpenLibrary(a6)
  191.     tst.l    d0
  192.     beq.s    \FatalAlert
  193.  
  194.     move.l    d0,a6            ;IntuitionBase
  195.     lea    ely_alertlibtext(pc),a0    ;Patch alert text
  196.  
  197.     moveq    #-1,d0            ;Clr char counter
  198. 1$    addq.w    #1,d0            ;Add char counter
  199.     cmp.w    #29,d0            ;more than 29 chars ?
  200.     bge.s    3$            ;Yes .. hmm
  201.     move.b    (a2)+,(a0)+
  202.     bne.s    1$
  203.     bra.s    4$
  204.  
  205. 3$    clr.b    (a0)            ;NULL byte terminated
  206. 4$    lea    ely_alerttext(pc),a0    ;Text
  207.     moveq    #0,d0            ;Code
  208.     moveq    #56,d1            ;Heigth
  209.     jsr    -90(a6)            ;_LVODisplayAlert(a6)
  210.  
  211.     move.l    a6,a1
  212.     move.l    4.w,a6
  213.     jsr    -414(a6)        ;_LVOCloseLibrary(a6)
  214.     bra.s    .errexit
  215.  
  216. \FatalAlert:
  217.     move.l    4.w,a6
  218.     move.l    #$00030000,d7        ;open library error
  219.     jsr    -108(a6)        ;_LVOAlert(a6)
  220.     ELSE
  221.     move.l    a2,7*4(a7)        ;patch A0
  222.     ENDC
  223.  
  224. .errexit:
  225.     moveq    #0,d0
  226. .out:    movem.l    (a7)+,d1-a6
  227.     tst.l    d0
  228.     rts
  229.     ELSE
  230. OpenLibrary:
  231. elh_openlibrary:
  232.     moveq    #1,d0            ;error free return value
  233. CloseLibrary:
  234. elh_closelibrary:
  235.     rts
  236.     ENDC
  237.  
  238.  
  239. ;------------------------------------------------------------------------------
  240. *
  241. * CloseLibrary
  242. *
  243. ;------------------------------------------------------------------------------
  244.     IFD    ely_used
  245. elh_closelibrary:
  246. CloseLibrary:
  247.     movem.l    d0-a6,-(a7)
  248.     lea    ely_base(pc),a5
  249.     lea    ely_librarylist(pc),a4
  250.     move.l    4.w,a6
  251.  
  252. .loop:    tst.w    (a4)            ;no more entries
  253.     beq    .out            ;finished
  254.     addq.l    #4,a4            ;skip name and version
  255.  
  256.     IFND    ely_LARGE
  257.     move.w    (a4)+,d1
  258.     lea    (a5,d1.w),a3        ;base
  259.     ELSE
  260.     move.l    (a4)+,a3
  261.     ENDC
  262.     tst.l    (a3)
  263.     beq.s    .loop
  264.     move.l    (a3),a1
  265.     jsr    -414(a6)        ;_LVOCloseLibrary(a6)
  266.     clr.l    (a3)            ;mark it as cleared
  267.     bra.s    .loop
  268. .out:    movem.l    (a7)+,d0-a6
  269.     rts
  270.  
  271.     ENDC
  272.  
  273. ;------------------------------------------------------------------------------
  274. *
  275. * library handler structure
  276. *
  277. ;------------------------------------------------------------------------------
  278.     IFD    ely_used
  279. ely_llentry    MACRO        ; dc.w name%,version,(base%|base)
  280.     IFD    \1
  281.     sw    \2%
  282.  
  283. .ely_val    SET    \1
  284.     IFMI    .ely_val        ; negative version number?
  285. .ely_val    SET    -.ely_val    ; make positive
  286.     ENDC
  287.  
  288.     IFLT    30,.ely_val
  289.     dc.w    0
  290.     ELSE
  291.     dc.w    .ely_val
  292.     ENDC
  293.  
  294.     IFND    ely_LARGE
  295.     sw    \3%
  296.     ELSE
  297.     dc.l    \3
  298.     ENDC
  299.  
  300.     ENDC
  301.     ENDM
  302.  
  303.  
  304. ely_librarylist:
  305.     ely_llentry    AMIGAGUIDE.LIB,ely_amigaguidename,AmigaGuideBase
  306.     ely_llentry    ARP.LIB,ely_arpname,ArpBase
  307.     ely_llentry    ASL.LIB,ely_aslname,AslBase
  308.     ely_llentry    BULLET.LIB,ely_bulletname,BulletBase
  309.     ely_llentry    CANDO.LIB,ely_candoname,CandoBase
  310.     ely_llentry    COMMODITIES.LIB,ely_commoditiesname,CxBase
  311.     ely_llentry    DATATYPES.LIB,ely_datatypesname,DatatypesBase
  312.     ely_llentry    DECRUNCH.LIB,ely_decrunchname,DecrunchBase
  313.     ely_llentry    DISKFONT.LIB,ely_diskfontname,DiskFontBase
  314.     ely_llentry    DOS.LIB,ely_dosname,DosBase
  315.     ely_llentry    EXPANSION.LIB,ely_expansionname,ExpansionBase
  316.     ely_llentry    EXPLODE.LIB,ely_explodename,ExplodeBase
  317.     ely_llentry    GADTOOLS.LIB,ely_gadtoolsname,GadToolsBase
  318.     ely_llentry    GRAPHICS.LIB,ely_gfxname,GfxBase
  319.     ely_llentry    ICON.LIB,ely_iconname,IconBase
  320.     ely_llentry    IEEEDOUBBAS.LIB,ely_ieeedoubbasname,IEEEDoubBasBase
  321.     ely_llentry    IEEEDOUBTRANS.LIB,ely_ieeedoubtransname,IEEEDoubTransBase
  322.     ely_llentry    IEEESINGTRANS.LIB,ely_ieeesingtransname,IEEESingTransBase
  323.     ely_llentry    IFF.LIB,ely_iffname,IffBase
  324.     ely_llentry    IFFPARSE.LIB,ely_iffparsename,IffParseBase
  325.     ely_llentry    INTUITION.LIB,ely_intuitionname,IntBase
  326.     ely_llentry    KEYMAP.LIB,ely_keymapname,KeymapBase
  327.     ely_llentry    LAYERS.LIB,ely_layersname,LayersBase
  328.     ely_llentry    LOCALE.LIB,ely_localename,LocalBase
  329.     ely_llentry    MATHTRANS.LIB,ely_mathtransname,MathTransBase
  330.     ely_llentry    NIHONGO.LIB,ely_nihongoname,NihongoBase
  331.     ely_llentry    NOFRAG.LIB,ely_nofragname,NoFragBase
  332.     ely_llentry    PPACKER.LIB,ely_ppackername,PPackerBase
  333.     ely_llentry    PROMMU.LIB,ely_prommuname,ProMMUBase
  334.     ely_llentry    REQ.LIB,ely_reqname,ReqBase
  335.     ely_llentry    REXX.LIB,ely_rexxname,RexxBase
  336.     ely_llentry    TRANSLATOR.LIB,ely_translatorname,TranslatorBase
  337.     ely_llentry    UTILITY.LIB,ely_utilityname,UtilBase
  338.     ely_llentry    VERSION.LIB,ely_versionname,VersionBase
  339.     ely_llentry    WORKBENCH.LIB,ely_workbenchname,WorkbenchBase
  340.     ely_llentry    XPKMASTER.LIB,ely_xpkmastername,XPKMasterBase
  341.     dc.w    0                        ;end sign
  342.     ENDC
  343.  
  344. ;------------------------------------------------------------------------------
  345. *
  346. * library names
  347. *
  348. ;------------------------------------------------------------------------------
  349.     IFD AMIGAGUIDE.LIB
  350. ely_amigaguidename:    dc.b    "amigaguide.library",0
  351.     ENDC
  352.  
  353.     IFD ARP.LIB
  354. ely_arpname:        dc.b    "arp.library",0
  355.     ENDC
  356.  
  357.     IFD ASL.LIB
  358. ely_aslname:        dc.b    "asl.library",0
  359.     ENDC
  360.  
  361.     IFD BULLET.LIB
  362. ely_bulletname:        dc.b    "bullet.library",0
  363.     ENDC
  364.  
  365.     IFD CANDO.LIB
  366. ely_candoname:        dc.b    "cando.library",0
  367.     ENDC
  368.  
  369.     IFD COMMODITIES.LIB
  370. ely_commoditiesname:    dc.b    "commodities.library",0
  371.     ENDC
  372.  
  373.     IFD DATATYPES.LIB
  374. ely_datatypesname:    dc.b    "datatypes.library",0
  375.     ENDC
  376.  
  377.     IFD DECRUNCH.LIB
  378. ely_decrunchname:    dc.b    "decrunch.library",0
  379.     ENDC
  380.  
  381.     IFD DISKFONT.LIB
  382. ely_diskfontname:    dc.b    "diskfont.library",0
  383.     ENDC
  384.  
  385.     IFD DOS.LIB
  386. ely_dosname:        dc.b    "dos.library",0
  387.     ENDC
  388.  
  389.     IFD EXPANSION.LIB
  390. ely_expansionname:    dc.b    "expansion.library",0
  391.     ENDC
  392.  
  393.     IFD EXPLODE.LIB
  394. ely_explodename:    dc.b    "explode.library",0
  395.     ENDC
  396.  
  397.     IFD GADTOOLS.LIB
  398. ely_gadtoolsname:    dc.b    "gadtools.library",0
  399.     ENDC
  400.  
  401.     IFD GRAPHICS.LIB
  402. ely_gfxname:        dc.b    "graphics.library",0
  403.     ENDC
  404.  
  405.     IFD ICON.LIB
  406. ely_iconname:        dc.b    "icon.library",0
  407.     ENDC
  408.  
  409.     IFD IEEEDOUBBAS.LIB
  410. ely_ieeedoubbasname:    dc.b    "mathieeedoubbas.library",0
  411.     ENDC
  412.  
  413.     IFD IEEEDOUBTRANS.LIB
  414. ely_ieeedoubtransname:    dc.b    "mathieeedoubtrans.library",0
  415.     ENDC
  416.  
  417.     IFD IEEESINGTRANS.LIB
  418. ely_ieeesingtransname:    dc.b    "mathieeesingtrans.library",0
  419.     ENDC
  420.  
  421.     IFD IFF.LIB
  422. ely_iffname:        dc.b    "iff.library",0
  423.     ENDC
  424.  
  425.     IFD IFFPARSE.LIB
  426. ely_iffparsename:    dc.b    "iffparse.library",0
  427.     ENDC
  428.  
  429.     IFD INTUITION.LIB        ;always be defined for 'Alert'
  430. ely_intuitionname:    dc.b    "intuition.library",0
  431.     ENDC
  432.  
  433.     IFD KEYMAP.LIB
  434. ely_keymapname:        dc.b    "keymap.library",0
  435.     ENDC
  436.  
  437.     IFD LAYERS.LIB
  438. ely_layersname:        dc.b    "layers.library",0
  439.     ENDC
  440.  
  441.     IFD LOCALE.LIB
  442. ely_localename:        dc.b    "locale.library",0
  443.     ENDC
  444.  
  445.     IFD MATHTRANS.LIB
  446. ely_mathtransname:    dc.b    "mathtrans.library",0
  447.     ENDC
  448.  
  449.     IFD NIHONGO.LIB
  450. ely_nihongoname:    dc.b    "nihongo.library",0
  451.     ENDC
  452.  
  453.     IFD NOFRAG.LIB
  454. ely_nofragname:        dc.b    "nofrag.library",0
  455.     ENDC
  456.  
  457.     IFD PPACKER.LIB
  458. ely_ppackername:    dc.b    "powerpacker.library",0
  459.     ENDC
  460.  
  461.     IFD PROMMU.LIB
  462. ely_prommuname:        dc.b    "prommu.library",0
  463.     ENDC
  464.  
  465.     IFD REQ.LIB
  466. ely_reqname:        dc.b    "req.library",0
  467.     ENDC
  468.  
  469.     IFD REXX.LIB
  470. ely_rexxname:        dc.b    "rexxsyslib.library",0
  471.     ENDC
  472.  
  473.     IFD TRANSLATOR.LIB
  474. ely_translatorname:    dc.b    "translator.library",0
  475.     ENDC
  476.  
  477.     IFD UTILITY.LIB
  478. ely_utilityname:    dc.b    "utility.library",0
  479.     ENDC
  480.  
  481.     IFD VERSION.LIB
  482. ely_versionname:    dc.b    "version.library",0
  483.     ENDC
  484.  
  485.     IFD WORKBENCH.LIB
  486. ely_workbenchname:    dc.b    "workbench.library",0
  487.     ENDC
  488.  
  489.     IFD XPKMASTER.LIB
  490. ely_xpkmastername:    dc.b    "xpkmaster.library",0
  491.     ENDC
  492.  
  493.     even
  494.  
  495. ;------------------------------------------------------------------------------
  496. *
  497. * bases
  498. *
  499. ;------------------------------------------------------------------------------
  500.     IFND DX.BASE
  501.  
  502. ely_libbase_    MACRO
  503.     IFD    \1
  504. ;*    IFND    \2            ;was not a good idea
  505. \2:    dc.l    0
  506. ;*    ENDC
  507.     ENDC
  508.     ENDM
  509.  
  510. ely_libbase2_    MACRO
  511.     IFD    \1            ;special handling for the support
  512. ;*    IFND    \2            ;of two names
  513. ;*    IFND    \3
  514. \3:
  515. \2:    dc.l    0
  516. ;*    ENDC
  517. ;*    ENDC
  518.  
  519.     IFD    \2
  520.     IFND    \3
  521. \3:    EQU    \2
  522.     ENDC
  523.     ELSE
  524.     IFD    \3
  525. \2:    EQU    \3
  526.     ENDC
  527.     ENDC
  528.  
  529.     ENDC
  530.     ENDM
  531.  
  532.  
  533.  
  534.  
  535.     ely_libbase_    AMIGAGUIDE.LIB,AmigaGuideBase
  536.     ely_libbase_    ARP.LIB,ArpBase
  537.     ely_libbase_    ASL.LIB,AslBase
  538.     ely_libbase_    BULLET.LIB,BulletBase
  539.     ely_libbase_    CANDO.LIB,CanDoBase
  540.     ely_libbase2_    COMMODITIES.LIB,CommoditiesBase,CxBase
  541.     ely_libbase_    DATATYPES.LIB,DatatypesBase
  542.     ely_libbase_    DECRUNCH.LIB,DecrunchBase
  543.     ely_libbase_    DISKFONT.LIB,DiskFontBase
  544.     ely_libbase_    DOS.LIB,DosBase
  545.     ely_libbase_    DOS36.LIB,DosBase
  546.     ely_libbase_    EXPANSION.LIB,ExpansionBase
  547.     ely_libbase_    EXPLODE.LIB,ExplodeBase
  548.     ely_libbase_    GADTOOLS.LIB,GadToolsBase
  549.     ely_libbase_    GRAPHICS.LIB,GfxBase
  550.     ely_libbase_    ICON.LIB,IconBase
  551.     ely_libbase_    IEEEDOUBBAS.LIB,IEEEDoubBasBase
  552.     ely_libbase_    IEEEDOUBTRANS.LIB,IEEEDoubTransBase
  553.     ely_libbase_    IEEESINGTRANS.LIB,IEEESingTransBase
  554.     ely_libbase_    IFF.LIB,IffBase
  555.     ely_libbase_    IFFPARSE.LIB,IffParseBase
  556.     ely_libbase_    INTUITION.LIB,IntBase
  557.     ely_libbase_    KEYMAP.LIB,KeymapBase
  558.     ely_libbase_    LAYERS.LIB,LayersBase
  559.     ely_libbase_    LOCALE.LIB,LocaleBase
  560.     ely_libbase_    MATHTRANS.LIB,MathTransBase
  561.     ely_libbase2_    NIHONGO.LIB,NihongoBase,ngbase
  562.     ely_libbase_    NOFRAG.LIB,NoFragBase
  563.     ely_libbase_    PPACKER.LIB,PPackerBase
  564.     ely_libbase_    PROMMU.LIB,ProMMUBase
  565.     ely_libbase_    REQ.LIB,ReqBase
  566.     ely_libbase_    REXX.LIB,RexxBase
  567.     ely_libbase_    TRANSLATOR.LIB,TranslatorBase
  568.     ely_libbase_    UTILITY.LIB,UtilBase
  569.     ely_libbase_    VERSION.LIB,VersionBase
  570.     ely_libbase_    WORKBENCH.LIB,WorkbenchBase
  571.     ely_libbase_    XPKMASTER.LIB,XPKMasterBase
  572.  
  573.     ENDC
  574.  
  575. ;------------------------------------------------------------------------------
  576. *
  577. * Data & Texts etc...
  578. *
  579. ;------------------------------------------------------------------------------
  580.     IFD    ely_used
  581.     IFND    ely_NOALERT
  582. ely_alerttext:
  583.     dc.b    0,32,18,gea_progname,0,-1
  584.     dc.b    0,32,30,"Fatal error occured: "
  585.     dc.b    "Unable to open "
  586. ely_alertlibtext:
  587.     ds.b    30,-1                ;ATTENTION: Only 29 entrys
  588.     dc.b    0,-1
  589.     dc.b    0,32,42,"Press left mouse button to continue"
  590.     dc.b    0,0
  591.     even
  592.     ENDC
  593.     ENDC
  594.  
  595. ;------------------------------------------------------------------------------
  596.     base    ely_oldbase
  597.  
  598. ;------------------
  599.     opt    rcl
  600.  
  601. ;------------------
  602.     endif
  603.  
  604.     end
  605.  
  606.